home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / String Mak244058102001.psc / String Maker / frmSetup.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-08-06  |  2.9 KB  |  98 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSetup 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Set-Up Panel"
  6.    ClientHeight    =   2250
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5535
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MDIChild        =   -1  'True
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2250
  15.    ScaleWidth      =   5535
  16.    Begin VB.TextBox txtDataObj 
  17.       Height          =   285
  18.       Left            =   2280
  19.       TabIndex        =   5
  20.       Top             =   600
  21.       Visible         =   0   'False
  22.       Width           =   2895
  23.    End
  24.    Begin VB.TextBox txtRecVar 
  25.       Height          =   285
  26.       Left            =   2280
  27.       TabIndex        =   4
  28.       Top             =   240
  29.       Width           =   2895
  30.    End
  31.    Begin VB.CheckBox chkBrakeLine 
  32.       Caption         =   "Breake formated text lines at VbNewLine"
  33.       Enabled         =   0   'False
  34.       Height          =   495
  35.       Left            =   840
  36.       TabIndex        =   2
  37.       Top             =   1440
  38.       Visible         =   0   'False
  39.       Width           =   4215
  40.    End
  41.    Begin VB.CheckBox chkBrkSymbol 
  42.       Caption         =   "Use add string symbol instead of ""Var = Var +...""  *"
  43.       Height          =   375
  44.       Left            =   840
  45.       TabIndex        =   1
  46.       Top             =   1200
  47.       Width           =   4095
  48.    End
  49.    Begin VB.Label Label3 
  50.       Caption         =   "DataBase Object  Name:"
  51.       Height          =   255
  52.       Left            =   360
  53.       TabIndex        =   6
  54.       Top             =   720
  55.       Visible         =   0   'False
  56.       Width           =   1815
  57.    End
  58.    Begin VB.Label Label2 
  59.       Caption         =   "* Does not apply to ""SQL Create table"" String Maker."
  60.       Height          =   255
  61.       Left            =   360
  62.       TabIndex        =   3
  63.       Top             =   1920
  64.       Width           =   4335
  65.    End
  66.    Begin VB.Label Label1 
  67.       Caption         =   "Recipient Variable Name:"
  68.       Height          =   255
  69.       Left            =   360
  70.       TabIndex        =   0
  71.       Top             =   360
  72.       Width           =   2055
  73.    End
  74. Attribute VB_Name = "frmSetup"
  75. Attribute VB_GlobalNameSpace = False
  76. Attribute VB_Creatable = False
  77. Attribute VB_PredeclaredId = True
  78. Attribute VB_Exposed = False
  79. Private Sub chkBrkSymbol_Click()
  80. BrakeSymbol = chkBrkSymbol.Value
  81. End Sub
  82. Private Sub Text1_Change()
  83. End Sub
  84. Private Sub txtDataObj_Change()
  85. DataObject = txtDataObj.Text
  86. End Sub
  87. Private Sub txtRecVar_Change()
  88. For x = 1 To Len(txtRecVar)
  89.    If Mid(txtRecVar, x, 1) = " " Then
  90.      MsgBox "Var Name Cant Have Spaces"
  91.      txtRecVar = RecipientVar
  92.      Exit Sub
  93.    End If
  94. Next x
  95. RecipientVar = txtRecVar
  96.      
  97. End Sub
  98.